home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
JCSM Shareware Collection 1995 September
/
JCSM Shareware Collection (September 30th 1995 Author to Vendor Edition) (JCS Distribution).ISO
/
db_fullf
/
12150m01.ziv
/
INSTALL.EXE
/
lha
/
DLITE
/
PASTEREC.FRB
(
.txt
)
< prev
next >
Wrap
FrontRunner Binary Module
|
1991-06-01
|
4KB
|
106 lines
WINCOL
CENTER
SET WINDOW TO "PASTE - "+FILENAME POSITION 4,CENTER SIZE &WINLIN,&WINCOL
PST_SPEC
PST_SPEC
TMPFILE
FILENAME
TMPFILE
TMPFILE
TMPFILE
(the PASTE file spec) cannot be found.
TONES
USE &FILENAME
TONES
File is empty. PASTE not available.
AFLAG
AFLAG
INDXNAME
AFLAG
SET INDEX TO &INDXNAME
>@)F3
THISREC
LEADINDX
INDXCOUNT
INDXCOUNT
INDXCOUNT
LEADINDX
INDXCOUNT
INDXCOUNT
INDXCOUNT
INDXCOUNT
INDXCOUNT
>@)F3
THISREC
LEADINDX
THISREC
Enter
LEADINDX
to find:
THISREC
Enter record number to find:
THISREC
THISREC
THISREC
THISREC
LEADINDX
THISREC
GOTO &THISREC
TONES
AFLAG
TONES
AFLAG
AFLAG
THISREC
THISREC
@Z 999999
Enter record number to PASTE:
THISREC
THISREC
THISREC
TONES
AFLAG
PASTEIT
<ESC> to abort. <PgDn> or <PgUp> to move through file.
FMT_SPEC
FMT_SPEC
TMPFIL2
FILENAME
TMPFIL2
PASTEIT
AFLAG
TMPFIL2
TMPFIL2
TMPFLD
TMPFLD
OOPS=MESSAGE()
&TMPFLD
_ERROR
CODE:
TMPFLD
FILE:
TMPFIL2
PASTEIT
PASTE this record?
PASTEIT
AFLAG
PASTE in progress . . .
AFLAG
AFLAG
PASTEIT
AFLAG
AFLAG
TONES
AFLAG
AFLAG
TMPFILE
TMPFLD
TMPFLD
OOPS=MESSAGE()
&TMPFLD
_ERROR
CODE:
TMPFLD
FILE:
TMPFILE